home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / 68343ffp.arc / FFPABS.SA < prev    next >
Text File  |  1989-08-30  |  3KB  |  71 lines
  1.  
  2.        TTL     FAST FLOATING POINT ABS/NEG (FFPABS/FFPNEG)
  3. ***************************************
  4. * (C) COPYRIGHT 1981 BY MOTOROLA INC. *
  5. ***************************************
  6.  
  7. *************************************************************
  8. *                     FFPABS                                *
  9. *           FAST FLOATING POINT ABSOLUTE VALUE              *
  10. *                                                           *
  11. *  INPUT:  D7 - FAST FLOATING POINT ARGUMENT                *
  12. *                                                           *
  13. *  OUTPUT: D7 - FAST FLOATING POINT ABSOLUTE VALUE RESULT   *
  14. *                                                           *
  15. *      CONDITION CODES:                                     *
  16. *              N - CLEARED                                  *
  17. *              Z - SET IF RESULT IS ZERO                    *
  18. *              V - CLEARED                                  *
  19. *              C - UNDEFINED                                *
  20. *              X - UNDEFINED                                *
  21. *                                                           *
  22. *               ALL REGISTERS TRANSPARENT                   *
  23. *                                                           *
  24. *************************************************************
  25.          PAGE
  26. FFPABS IDNT    1,1  FFP ABS/NEG
  27.  
  28.          XDEF      FFPABS    FAST FLOATING POINT ABSOLUTE VALUE
  29.  
  30.        XREF    FFPCPYRT        COPYRIGHT NOTICE
  31.  
  32.          SECTION  9
  33.  
  34. ******************************
  35. * ABSOLUTE VALUE ENTRY POINT *
  36. ******************************
  37. FFPABS   AND.B     #$7F,D7   CLEAR THE SIGN BIT
  38.          RTS                 AND RETURN TO THE CALLER
  39.          PAGE
  40. *************************************************************
  41. *                     FFPNEG                                *
  42. *           FAST FLOATING POINT NEGATE                      *
  43. *                                                           *
  44. *  INPUT:  D7 - FAST FLOATING POINT ARGUMENT                *
  45. *                                                           *
  46. *  OUTPUT: D7 - FAST FLOATING POINT NEGATED RESULT          *
  47. *                                                           *
  48. *      CONDITION CODES:                                     *
  49. *              N - SET IF RESULT IS NEGATIVE                *
  50. *              Z - SET IF RESULT IS ZERO                    *
  51. *              V - CLEARED                                  *
  52. *              C - UNDEFINED                                *
  53. *              X - UNDEFINED                                *
  54. *                                                           *
  55. *               ALL REGISTERS TRANSPARENT                   *
  56. *                                                           *
  57. *************************************************************
  58.          PAGE
  59.          XDEF      FFPNEG    FAST FLOATING POINT NEGATE
  60.  
  61. **********************
  62. * NEGATE ENTRY POINT *
  63. **********************
  64. FFPNEG   TST.B     D7        ? IS ARGUMENT A ZERO
  65.          BEQ.S     FFPRTN    RETURN IF SO
  66.          EOR.B     #$80,D7   INVERT THE SIGN BIT
  67. FFPRTN   RTS                 AND RETURN TO CALLER
  68.  
  69.          END
  70.  
  71.